CD-ROM Advisor/CD-ROM Advisor.iso/prodemo/demo/dylan.dxr/00001.ls

Text File | 1995-09-13 | 1.4 KB | 34 lines

on startMovie
  global gNameOfSoundFile, gChannelForHighButtons, gChannelForSound, gCuesForVoice, gLabelsForVoiceCues, gCountOfCues, gPreTicksForCue, gNextCueIndex, gRadiusOfExitButton, gCenterOfMenuH, gCenterOfMenuV, gLabelForEndScreen, gMouseDownInButton, gUseMenuButton
  set gNameOfSoundFile to "DYLAN.AIF"
  set gChannelForHighButtons to 5
  set gChannelForSound to 1
  set the puppet of sprite gChannelForHighButtons to 1
  set the visible of sprite gChannelForHighButtons to 0
  set the ink of sprite gChannelForHighButtons to 0
  set gCuesForVoice to [109, 125, 245, 294, 415, 585, 775, 1087, 1210, 1515, 1660, 2026, 2269, 2794, 3176, 3601]
  set gLabelsForVoiceCues to ["is", "hello", "h2", "hey", "yeah", "dont", "vigout", "before", "was", "soaroff", "bet", "enough", "encoff", "unless", "maybe", "never"]
  set gCountOfCues to 16
  set gPreTicksForCue to 45
  set gRadiusOfExitButton to 32
  set gCenterOfMenuH to 141
  set gCenterOfMenuV to 443
  set gUseMenuButton to 0
  set gLabelForEndScreen to "endinfo"
end

on isWithinExitButton h, v
  global gRadiusOfExitButton, gCenterOfMenuH, gCenterOfMenuV
  set hComp to gCenterOfMenuH - h
  set vComp to gCenterOfMenuV - v
  set r to sqrt((hComp * hComp) + (vComp * vComp)) < gRadiusOfExitButton
  return r
end

on stopSound
  global gChannelForSound
  if soundBusy(gChannelForSound) then
    sound stop gChannelForSound
  end if
end